home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / sys.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  1.1 KB  |  37 lines
  1. if (!defined &_SYSUSER) {
  2.     eval 'sub _SYSUSER {1;}';
  3.     if (!defined &_SPRITE) {
  4.     require 'sprite.ph';
  5.     }
  6.     eval 'sub SYS_REBOOT {0x01;}';
  7.     eval 'sub SYS_HALT {0x02;}';
  8.     eval 'sub SYS_KILL_PROCESSES {0x04;}';
  9.     eval 'sub SYS_DEBUG {0x08;}';
  10.     eval 'sub SYS_WRITE_BACK {0x10;}';
  11.     eval 'sub SYS_SPUR {1;}';
  12.     eval 'sub SYS_SUN2 {2;}';
  13.     eval 'sub SYS_SUN3 {3;}';
  14.     eval 'sub SYS_SUN4 {4;}';
  15.     eval 'sub SYS_MICROVAX_2 {5;}';
  16.     eval 'sub SYS_DS3100 {6;}';
  17.     eval 'sub SYS_SYM {7;}';
  18.     eval 'sub SYS_DS5000 {8;}';
  19.     eval 'sub SYS_SUN_ARCH_MASK {0xf0;}';
  20.     eval 'sub SYS_SUN_IMPL_MASK {0x0f;}';
  21.     eval 'sub SYS_SUN_2 {0x00;}';
  22.     eval 'sub SYS_SUN_3 {0x10;}';
  23.     eval 'sub SYS_SUN_4 {0x20;}';
  24.     eval 'sub SYS_SUN_4_C {0x50;}';
  25.     eval 'sub SYS_SUN_2_50 {0x02;}';
  26.     eval 'sub SYS_SUN_2_120 {0x01;}';
  27.     eval 'sub SYS_SUN_2_160 {0x02;}';
  28.     eval 'sub SYS_SUN_3_75 {0x11;}';
  29.     eval 'sub SYS_SUN_3_160 {0x11;}';
  30.     eval 'sub SYS_SUN_3_50 {0x12;}';
  31.     eval 'sub SYS_SUN_3_60 {0x17;}';
  32.     eval 'sub SYS_SUN_4_200 {0x21;}';
  33.     eval 'sub SYS_SUN_4_C_60 {0x51;}';
  34.     eval 'sub SYS_SUN_4_C_65 {0x53;}';
  35. }
  36. 1;
  37.